00100		SUBROUTINE PLOT(I,J,K)
00200		DATA M/1023/
00300		DIMENSION N(3,341),NN(1023)
00500		EQUIVALENCE(N,NN)
00600		IF(K.EQ.99)GO TO 1
00700		L=L+1
00800		N(1,L)=I
00900		N(2,L)=J
01000		N(3,L)=K
01100	3	IF(L.LT.341)RETURN
01200	2	L=0
01300		WRITE(1)M,N
01400		RETURN
01500	1	M=L*3
01600		WRITE(1)M,(NN(K),K=1,M)
01700		CALL EXIT
01800		END